System Booster/System Booster.iso/Archives/Timing/DateBKIV.lha/DateBookIV/InstallDateBook

Text File | 1996-04-01 | 5.1 KB | 318 lines

; File : InstallDateBook
;
; $Project:           DateBook
;
; $Description:       Install script for DateBookIV
;
; $Module Id:
; $Original Author:   Robert Hardy
; $Date Started:      Fall 1994
;
; $Header: sqa:BobsStuff/DateBook/InstallDateBook-v 1.13 1996/03/31 01:05:22 Bob Exp $
;
; $Revision: 1.13 $
;
; $State: Exp $
;
; $Locker:  $
;
;
;

(set vernum (getversion))
(set ver (/ vernum 65536))

(if (< ver 37)
    (abort "DateBookIV requires at least verion 2.04 of AmigaDOS")
)


(set prog_dir
    (askdir
        (prompt "Select Program directory")
        (help @askdir-help)
        (default "Sys:Utilities")
    )
)

(set help_dir
    (askdir
        (prompt "Select Documentation directory")
        (help @askdir-help)
        (default prog_dir)
    )
)

(set env_dir "ENV:DateBook")

(makedir env_dir)

(textfile
    (dest (tackon env_dir "Help"))
    (append help_dir)
)

(set env_dir "ENVARC:DateBook")

(makedir env_dir)

(textfile
    (dest (tackon env_dir "Help"))
    (append help_dir)
)

(set rexx_dir
    (askdir
        (prompt "Select Rexx Script directory")
        (help @askdir-help)
        (default prog_dir)
    )
)

(set db_dir
    (askdir
        (prompt "Select Database directory")
        (help @askdir-help)
        (default prog_dir)
    )
)

(set dbase_name (tackon db_dir "Dates.dat"))

(Copyfiles
    (prompt ("Copying DateBook to " prog_dir))
    (help @copyfiles-help)
    (source "DateBook")
    (infos)
    (dest prog_dir)
)

(Copyfiles
    (prompt ("Copying DateBook.guide to " help_dir))
    (help @copyfiles-help)
    (source "DateBook.guide")
    (infos)
    (dest help_dir)
)

(Copyfiles
    (prompt ("Copying ReadMe to " help_dir))
    (help @copyfiles-help)
    (source "ReadMe")
    (infos)
    (dest help_dir)
)

(Copyfiles
    (prompt ("Copying DateEdit.info to " prog_dir))
    (help @copyfiles-help)
    (source "DateEdit.info")
    (dest prog_dir)
)

(Copyfiles
    (prompt ("Copying Tomorrow.info to " prog_dir))
    (help @copyfiles-help)
    (source "Tomorrow.info")
    (dest prog_dir)
)

(Copyfiles
    (prompt ("Copying December.info to " prog_dir))
    (help @copyfiles-help)
    (source "December.info")
    (dest prog_dir)
)


(Copyfiles
    (prompt "Copying Pano.dbk to " rexx_dir)
    (help @copyfiles-help)
    (source "rexx")
    (pattern "*.dbk")
    (dest rexx_dir)
)

(tooltype
    (prompt "Setting Database Tool")
    (help "No help here either")
    (settooltype "FILE" dbase_name)
    (dest
        (tackon prog_dir "DateBook")
    )
)

(tooltype
    (prompt "Setting Database Tool")
    (help "No help here either")
    (settooltype "FILE" dbase_name)
    (dest
        (tackon prog_dir "DateEdit")
    )
)

(tooltype
    (prompt "Setting Database Tool")
    (help "No help here either")
    (settooltype "FILE" dbase_name)
    (dest
        (tackon prog_dir "December")
    )
)

(tooltype
    (prompt "Setting Database Tool")
    (help "No help here either")
    (settooltype "FILE" dbase_name)
    (dest
        (tackon prog_dir "Today")
    )
)

(set convert -1)

(if (exists dbase_name)
    (set convert
        (askbool
            (prompt "\n\n\nDates.dat already exists.\nShould I run `ConvertDateBook'?")
            (help "The Database size has changed and must be converted to the new format")
        )
    )
)

; file exist. should we convert it.

(if (= convert 1)
    (run "convertdatebook" dbase_name)
)

; file doen't exist, copy the default.

(if (= convert -1)
    (Copyfiles
        (prompt ("Copying Dates.dat to " db_dir))
        (help @copyfiles-help)
        (source "Dates.dat")
        (dest db_dir)
    )
)

(set start_mode  6)

(set start_mode
    (askchoice
        (prompt
            "\n\nWhich mode would you like DateBook startup in?")
        (choices "MemoCal" "Editor" "CLI" "Rexx Server" "AppIcon" "Clock" "Calendar")
        (default 6)
        (help "Select your prefered startup mode")
    )
)

(set prog "DateBook")

(set prog_string
    (cat
        "run <>NIL: " prog
    )
)

(set startup_str "MEMO")
(set iconfy_str "CLOCK")

(if (= start_mode 0)
    (set startup_str "MEMO")
)

(if (= start_mode 1)
    (set startup_str "EDIT")
)

(if (= start_mode 2)
    (
        (set startup_str "CLI")
        (set prog_string
            (cat "run <>CON:10/10/600/100/DateBookIV/auto/wait/close "
                 prog " quiet"
            )
        )
    )
)

(if (= start_mode 3)
    (set startup_str "SERVER")
)

(if (= start_mode 4)
    (
        (set startup_str "ICONIFY")
        (set iconify_str "ICON")
    )
)

(if (= start_mode 5)
    (set startup_str "ICONIFY")
)

(if (= start_mode 6)
    (
        (set startup_str "ICONIFY")
        (set iconify_str "CAL")
    )
)

(set prog (tackon prog_dir "DateBook"))

(set cfg_str
    (cat
        "DateBookIV_CFG\n\n"
        "STARTMODE " startup_str "\n"
        "ICONIFYTYPE "iconify_str "\n"
        "KEYPAD OFF\n"
        "CONFIRM ON\n"
        "NOTIFY OFF\n\n"
        "END DateBookIV_CFG\n"
    )
)

(textfile
    (dest (cat prog ".dfg"))
    (append cfg_str)
)

(startup "DateBookIV"
    (prompt
        (cat
            "\n\nWould you like DateBook run during startup?\n\n"
            "This will add a line to your s:User-Startup file.\n\n"
             prog_string "\n\n"
        )
    )
    (command prog_string)
    (help
        (cat "This will add a line to your s:User-Startup file.\n\n"
             prog_string "\n\n"
             "Note:  It will not remove any old entry"
        )
    )
)

(set viewer "More")

(if (exists "sys:Utilities/Multiview")
    (set viewer "Multiview")
    (if (exists "sys:Utilities/AmigaGuide")
        (set viewer "AmigaGuide")
    )
)

(set read_file "Readme")

(run ("%s <>NIL: %s" viewer read_file))

(message "\n\nInstallation complete.\n\n You will find the Programs in " prog_dir
      ", the database in " db_dir "  and docs in " help_dir"\n\nEnjoy!"
)

(exit (quiet))